90 POKE53281,0:POKE53280,11
100 REM 1 SIN+--SINGLE DRIVE COPY
105 REM RICK YOUNIE
110 POKE56,30:CLR
111 PRINT"[147][159]    [193][160][196][201][210][197][195][212][207][210][217][160][211][197][204][197][195][212][160][195][207][208][217][160][208][210][207][199][210][193][205][146]
112 [153]" 1541-LOAD AND RUN C-64 WEDGE FIRST"
113 [153]" 2031-RELOCATE C-LINK TO $C000 & CHANGE       LINE 130 TO TM=12*4096-1
115 GOSUB59000
120 PRINTTAB(5)"INSERT SOURCE DISK AND RETURN"
121 GETA$:IFA$<>CHR$(13)THEN121
124 PRINT"[147] SELECT PROGS (Y/N) * TO BEGIN TRANSFER"
125 MAX=20:DIMNA$(MAX),TY$(MAX),BL(MAX),     EOF(MAX):WASTE=933:Z$=CHR$(0)
130 TM=12*4096+12*256-1:REM $CBFF WITH C64WEDGE
135 BC=INT(TM/256-PEEK(56)-1)
140 OPEN15,8,15,"I0"
145 OPEN2,8,2,"$0"
150 INPUT#15,E0$,E1$,E2$,E3$
155 IFE0$<>"00"THENPRINTCHR$(5)E0$" "E1$" "E2$" "E3$:END
160 POKE781,254:SYSWASTE
165 N=1
170 J=1
175 GET#2,TY$
180 IFTY$=CHR$(129)THENTY$="S":GOTO200
185 IFTY$=CHR$(130)THENTY$="P":GOTO200
190 IFTY$=CHR$(131)THENTY$="U":GOTO200
195 POKE781,28:SYSWASTE:GOTO280
200 GET#2,A$,A$
205 NA$=""
210 FORI=5TO20:GET#2,A$:IFA$<>CHR$(160)THENNA$=NA$+A$
215 NEXT
220 FORI=21TO29:GET#2,A$:NEXT
225 GET#2,BL$:BL=ASC(BL$+Z$)
230 PRINTTAB(4)NA$TAB(21)TY$TAB(23)BL
235 GETA$:IFA$=""THEN235
240 IFA$="N"THENPRINT"[145]                             "CHR$(141)"[145][145]":GOTO280
245 IFA$="*"THENPRINTTAB(4)"[145]-------LOADING C64-------":GOTO300
250 IFA$<>"Y"THEN235
255 IFBL>BCTHENPRINT"[145] NO MORE ROOM--* TO LOAD C64":FORW=1TO500:NEXT:A$="N":GOTO240
260 PRINT"[145]"TAB(30)BC-BL
265 BC=BC-BL
270 NA$(N)=NA$:TY$(N)=TY$:BL(N)=BL:N=N+1
275 IFN>MAXTHENPRINT"     MAX NO. PROGS        = "MAX:GOTO300
280 GET#2,A$:IFSTTHEN295
285 J=J+1:IFJ<9THENGET#2,A$,A$:GOTO175
290 GOTO170
295 PRINTTAB(6)"NO MORE PROGRAMS--LOADING C64"
300 CLOSE2
305 N=N-1:IFN=0THENPRINTTAB(24)"[145]NONE SELECTED":END
310 :
315 :
320 XSAV=781:YSAV=782:GIT=828:PIT=876:          SUP=869
325 XFR=PEEK(56)*256+PEEK(55)
330 :
335 I=1
340 OPEN2,8,2,NA$(I)+","+TY$(I)+",R"
345 PRINT" "NA$(I)TAB(18)TY$(I)
350 INPUT#15,E0$,E1$:IFE0$<>"00"THENPRINTTAB(20)"[145]"E1$:BL(I)=0:GOTO380
355 HI=INT(XFR/256):LO=XFR-HI*256:           POKEYSAV,HI:POKEXSAV,LO:SYSGIT
360 INPUT#15,E0$,E1$:IFE0$<>"00"THENPRINTTAB(20)"[145]"E1$:BL(I)=0:GOTO380
365 EOF(I)=PEEK(XSAV)+PEEK(YSAV)*256
370 XFR=EOF(I)+1
375 PRINT"[145]                             "CHR$(141)"[145][145]"
380 CLOSE2
385 I=I+1:IFI<=NTHEN340
390 CLOSE15
395 :
400 POKE198,0:PRINT"[145]INSERT DESTINATION DISK & RETURN
405 [161]A$:[139]A$[179][177][199](13)[167]405
410 XFR[178][194](56)[172]256[170][194](55)
415 :
420 [159]15,8,15,"I0"
425 [132]15,E0$,E1$
430 [139]E0$[178]"00"[167]445
435 [153]" DISK PROBLEM-FIX AND TYPE CONT<RET>":[160]15:[144]:[137]420
440 :
445 [129]I[178]1[164]N
450 [139]BL(I)[178]0[167]495
455 [159]2,8,1,NA$(I)[170]","[170]TY$(I)[170]",W"
460 [132]15,E0$,E1$
465 [153]" "NA$(I)[163]18)TY$(I)" "E1$
470 [139]E0$[179][177]"00"[167]490
475 HI[178][181](XFR[173]256):LO[178]XFR[171]HI[172]256:[151]YSAV,HI:[151]XSAV,LO:[158]SUP
480 XFR[178]EOF(I)[170]1:HI[178][181](XFR[173]256):LO[178]XFR[171]HI[172]256:[151]YSAV,HI:[151]XSAV,LO:[158]PIT
485 [132]15,E0$,E1$:[139]E0$[179][177]"00"[167][153][163]5)"FATAL ERROR "E0$" "E1$:I[178]N
490 [160]2
495 [130]
500 [160]15
505 [153]"POKE56,160 :REM IF FINISHED"
510 [153]"GOTO400    :REM TO SAVE PROGS TO                        ANOTHER DISK
515 END
59000 FORI=828TO1000
59010 READ A:IFA<0THEN RETURN
59020 POKEI,A
59030 NEXT
60000 DATA 142,75,3,140,76,3,162,2,32,198,255,32,228,255,141,77,47
60001 DATA 166,144,208,10,238,75,3,208,241,238,76,3,208,236,32,204,255
60002 DATA 174,75,3,172,76,3,96,142,124,3,140,125,3,96,142,154,3
60003 DATA 140,147,3,169,54,133,1,162,2,32,201,255,173,78,47,32,210
60004 DATA 255,24,173,124,3,105,1,141,124,3,173,125,3,105,0,141,125
60005 DATA 3,201,47,208,229,173,124,3,201,78,208,222,32,204,255,169,55
60006 DATA 133,1,96,142,174,3
60007 DATA162,2,32,198,255,162,1,32,228,255,202,208,250,32,204,255,96,-1